home *** CD-ROM | disk | FTP | other *** search
/ OpenGL Superbible (2nd Edition) / OpenGL SuperBible e2.iso / tools / GLUT-3.7 / adainclude / GL / GLUT.ADB next >
Encoding:
Text File  |  1998-08-12  |  4.0 KB  |  119 lines
  1. --  Generated from glut.h
  2. --  Date: Sun Apr  6 14:32:02 1997
  3. --
  4. --  Command line definitions:
  5. --      -D__ANSI_C__ -D_LANGUAGE_C -DGENERATING_ADA_BINDING -D__unix -D__sgi
  6. --      -D__mips -D__host_mips -D__EXTENSIONS__ -D__EDG -D__DSO__ -D__STDC__
  7. --      -D_SYSTYPE_SVR4 -D_MODERN_C -D_MIPS_SZPTR=32 -D_MIPS_SZLONG=32
  8. --      -D_MIPS_SZINT=32 -D_MIPS_SIM=_MIPS_SIM_ABI32
  9. --      -D_MIPS_ISA=_MIPS_ISA_MIPS1 -D_MIPS_FPSET=16 -D_MIPSEB
  10. --
  11.  
  12. package body Glut is
  13.  
  14.    function glutCreateWindow (title : String) return Integer is
  15.       Result : Integer;
  16.       c_title : Interfaces.C.Strings.Chars_Ptr :=
  17.          Interfaces.C.Strings.New_String (title);
  18.    begin
  19.       Result := glutCreateWindow (c_title);
  20.       Interfaces.C.Strings.Free  (c_title);
  21.       return Result;
  22.    end glutCreateWindow;
  23.  
  24.    procedure glutInitDisplayString (name : String) is
  25.       c_name : Interfaces.C.Strings.Chars_Ptr :=
  26.          Interfaces.C.Strings.New_String (name);
  27.    begin
  28.       glutInitDisplayString  (c_name);
  29.       Interfaces.C.Strings.Free  (c_name);
  30.    end glutInitDisplayString;
  31.  
  32.    procedure glutSetWindowTitle (title : String) is
  33.       c_title : Interfaces.C.Strings.Chars_Ptr :=
  34.          Interfaces.C.Strings.New_String (title);
  35.    begin
  36.       glutSetWindowTitle  (c_title);
  37.       Interfaces.C.Strings.Free  (c_title);
  38.    end glutSetWindowTitle;
  39.  
  40.    procedure glutSetIconTitle (title : String) is
  41.       c_title : Interfaces.C.Strings.Chars_Ptr :=
  42.          Interfaces.C.Strings.New_String (title);
  43.    begin
  44.       glutSetIconTitle  (c_title);
  45.       Interfaces.C.Strings.Free  (c_title);
  46.    end glutSetIconTitle;
  47.  
  48.    function glutBitmapLength (font : access Interfaces.C.Extensions.Void_Ptr;
  49.      str : String) return Integer is
  50.       Result : Integer;
  51.       c_str : Interfaces.C.Strings.Chars_Ptr :=
  52.          Interfaces.C.Strings.New_String (str);
  53.    begin
  54.       Result := glutBitmapLength  (font, c_str);
  55.       Interfaces.C.Strings.Free  (c_str);
  56.       return Result;
  57.    end glutBitmapLength;
  58.  
  59.    function glutStrokeLength (font : access Interfaces.C.Extensions.Void_Ptr;
  60.      str : String) return Integer is
  61.       Result : Integer;
  62.       c_str : Interfaces.C.Strings.Chars_Ptr :=
  63.          Interfaces.C.Strings.New_String (str);
  64.    begin
  65.       Result := glutStrokeLength  (font, c_str);
  66.       Interfaces.C.Strings.Free  (c_str);
  67.       return Result;
  68.    end glutStrokeLength;
  69.  
  70.    procedure glutAddMenuEntry (label : String; value : Integer) is
  71.       c_label : Interfaces.C.Strings.Chars_Ptr :=
  72.          Interfaces.C.Strings.New_String (label);
  73.    begin
  74.       glutAddMenuEntry  (c_label, value);
  75.       Interfaces.C.Strings.Free  (c_label);
  76.    end glutAddMenuEntry;
  77.  
  78.    procedure glutAddSubMenu (label : String; submenu : Integer) is
  79.       c_label : Interfaces.C.Strings.Chars_Ptr :=
  80.          Interfaces.C.Strings.New_String (label);
  81.    begin
  82.       glutAddSubMenu  (c_label, submenu);
  83.       Interfaces.C.Strings.Free  (c_label);
  84.    end glutAddSubMenu;
  85.  
  86.    procedure glutChangeToMenuEntry (item  : Integer;
  87.                                     label : String;
  88.                                     value : Integer) is
  89.       c_label : Interfaces.C.Strings.Chars_Ptr :=
  90.          Interfaces.C.Strings.New_String (label);
  91.    begin
  92.       glutChangeToMenuEntry  (item, c_label, value);
  93.       Interfaces.C.Strings.Free  (c_label);
  94.    end glutChangeToMenuEntry;
  95.  
  96.    procedure glutChangeToSubMenu (item    : Integer;
  97.                                   label   : String;
  98.                                   submenu : Integer) is
  99.       c_label : Interfaces.C.Strings.Chars_Ptr :=
  100.          Interfaces.C.Strings.New_String (label);
  101.    begin
  102.       glutChangeToSubMenu  (item, c_label, submenu);
  103.       Interfaces.C.Strings.Free  (c_label);
  104.    end glutChangeToSubMenu;
  105.  
  106.    function glutExtensionSupported (name : String) return Integer is
  107.       Result : Integer;
  108.       c_name : Interfaces.C.Strings.Chars_Ptr :=
  109.          Interfaces.C.Strings.New_String (name);
  110.    begin
  111.       Result := glutExtensionSupported (c_name);
  112.       Interfaces.C.Strings.Free  (c_name);
  113.       return Result;
  114.    end glutExtensionSupported;
  115.  
  116.  
  117. end Glut;
  118.  
  119.